home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
401-425
/
disk_424
/
med
/
programmers
/
examples
/
example4.a
< prev
next >
Wrap
Text File
|
1992-05-06
|
423b
|
21 lines
; example4.a -- calling modplayer from assembler program
xref _song ;the name of the object file should be "song"
xref _InitPlayer
xref _PlayModule
xref _RemPlayer
code
movem.l a0-a6/d0-d7,-(sp)
jsr _InitPlayer(pc) ;no error checking needed here!!
lea _song,a0
jsr _PlayModule(pc)
movea.l 4,a6
moveq #$40,d0
lsl.l #6,d0
jsr -$13e(a6) ;wait for Ctrl-C
jsr _RemPlayer(pc)
movem.l (sp)+,a0-a6/d0-d7
rts
end